home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_6531.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  12.5 KB  |  575 lines
  1. -- card: 6531 from stack: in.6
  2. -- bmap block id: 6784
  3. -- flags: 0000
  4. -- background id: 2598
  5. -- name: Card1
  6. ----- HyperTalk script -----
  7. on opencard
  8.   -- hide card field 1
  9.   set textArrows to true
  10.   set blindtyping to false
  11.   hide message
  12.   hide card field "Anna PWD"
  13.   hide card field "PWD"
  14.   get short name of card button id 44
  15.   put card field "Terminal Emulator" of card "config" into TE
  16.   set name of card button id 44 to "Vaihda p├ñ├ñteohjelmaan " & TE
  17. end opencard
  18.  
  19.  
  20.  
  21.  
  22.  
  23. -- part 13 (field)
  24. -- low flags: 00
  25. -- high flags: 0007
  26. -- rect: left=0 top=192 right=342 bottom=512
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 0
  30. -- font id: 4
  31. -- text size: 9
  32. -- style flags: 0
  33. -- line height: 12
  34. -- part name: Field 1
  35.  
  36.  
  37. -- part 22 (field)
  38. -- low flags: 01
  39. -- high flags: 0002
  40. -- rect: left=0 top=13 right=26 bottom=108
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 3
  45. -- text size: 9
  46. -- style flags: 0
  47. -- line height: 12
  48. -- part name: UserMessage
  49.  
  50.  
  51. -- part 14 (button)
  52. -- low flags: 00
  53. -- high flags: A004
  54. -- rect: left=392 top=151 right=169 bottom=446
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: More
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  66.   openascii
  67.   show card field 1
  68.   writeascii (numtochar(17) & return)
  69.   put space into card field 1
  70.   displayscreen "dis",CommPrompt
  71.   closeascii
  72. end mouseUp
  73.  
  74.  
  75.  
  76.  
  77. -- part 16 (button)
  78. -- low flags: 00
  79. -- high flags: A004
  80. -- rect: left=292 top=116 right=134 bottom=332
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Who
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   global CommPrompt
  92.   set cursor to watch
  93.   openascii
  94.   put empty into card field 1
  95.   writeascii (numtochar(17) & "who" & return)
  96.   displayscreen "dis",CommPrompt
  97.   closeascii
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 25 (field)
  103. -- low flags: 01
  104. -- high flags: 0002
  105. -- rect: left=0 top=0 right=12 bottom=62
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 4
  110. -- text size: 9
  111. -- style flags: 0
  112. -- line height: 12
  113. -- part name: LineCount
  114.  
  115.  
  116. -- part 28 (button)
  117. -- low flags: 00
  118. -- high flags: A000
  119. -- rect: left=140 top=140 right=186 bottom=231
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 16003 / 16003
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: News system
  128. ----- HyperTalk script -----
  129. on mouseup
  130.   get first word of card field "Node Name" of card "config"
  131.   if it <> "tukki" then
  132.     answer "News on vain tukki-koneessa."
  133.   else
  134.     visual effect iris open slow
  135.     go card "News"
  136.   end if
  137. end mouseup
  138.  
  139.  
  140.  
  141. -- part 29 (button)
  142. -- low flags: 00
  143. -- high flags: A000
  144. -- rect: left=156 top=86 right=131 bottom=213
  145. -- title width / last selected line: 65535
  146. -- icon id / first selected line: -15903 / 49633
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: E Mail
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   visual effect iris open slow
  156.   go card "Mailing"
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 31 (button)
  162. -- low flags: 00
  163. -- high flags: A000
  164. -- rect: left=25 top=133 right=185 bottom=116
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 8538 / 8538
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Change Passwd
  173. ----- HyperTalk script -----
  174. on mouseup
  175.   openascii
  176.   get first word of card field "Node Type" of card "config"
  177.   put it into NodeType
  178.   ask "Anna vanha salasanasi."
  179.   if NodeType = "vms" then
  180.     writeascii "set pass" & return
  181.   else
  182.     writeascii "passwd" & return
  183.   end if
  184.  
  185.   wait 1 sec
  186.   writeascii it & return
  187.   ask "Anna uusi salasanasi."
  188.   put it into salasana
  189.   ask "Anna uusi salasana uudelleen."
  190.   if it = salasana then
  191.     writeascii it & return
  192.     wait 1 sec
  193.     writeascii it & return
  194.   else
  195.     answer "Annoit uuden eritavalla. Tee uudestaan."
  196.     writeascii return & return
  197.     exit mouseup
  198.   end if
  199.   put space into card field 1
  200.   displayscreen "dis"
  201.   if nodetype is "vms" then
  202.     get offset("old password validation error",card field 1)
  203.   else
  204.     get offset("Sorry",card field 1)
  205.   end if
  206.  
  207.   if it > 0 then
  208.     answer "Annoit vanhan salasanan v├ñ├ñrin. Yrit├ñ uudestaan."
  209.   end if
  210.  
  211.   closeascii
  212. end mouseup
  213.  
  214.  
  215.  
  216. -- part 32 (button)
  217. -- low flags: 00
  218. -- high flags: A004
  219. -- rect: left=283 top=151 right=169 bottom=367
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Speak Text
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   ReadField1
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 36 (button)
  236. -- low flags: 00
  237. -- high flags: A000
  238. -- rect: left=456 top=83 right=130 bottom=503
  239. -- title width / last selected line: 65535
  240. -- icon id / first selected line: -15743 / 49793
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: PANIC
  247. ----- HyperTalk script -----
  248. on mouseup
  249.   PANIC
  250. end mouseup
  251.  
  252.  
  253.  
  254. -- part 37 (field)
  255. -- low flags: 80
  256. -- high flags: 2004
  257. -- rect: left=28 top=22 right=289 bottom=479
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 16384
  264. -- line height: 16
  265. -- part name: Anna PWD
  266.  
  267.  
  268. -- part 38 (field)
  269. -- low flags: 80
  270. -- high flags: 2004
  271. -- rect: left=160 top=145 right=169 bottom=298
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 0
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 256
  278. -- line height: 16
  279. -- part name: PWD
  280.  
  281.  
  282. -- part 40 (button)
  283. -- low flags: 00
  284. -- high flags: A004
  285. -- rect: left=286 top=133 right=151 bottom=446
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Change [{| to Çüà
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   set cursor to watch
  297.   set cursor to watch
  298.   replace "{","├ñ"
  299.   replace "}","├Ñ"
  300.   replace "|","├╢"
  301.   replace "\","├û"
  302.   replace "[","├ä"
  303.   replace "]","├à"
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 41 (button)
  309. -- low flags: 00
  310. -- high flags: A004
  311. -- rect: left=301 top=97 right=117 bottom=446
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Save file to disc
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   global NewsState
  323.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  324.   if NodeType <> "unix" then
  325.     put "Ei toimi VMS-koneilla."
  326.     exit mouseup
  327.   end if
  328.  
  329.   openascii
  330.   ask "Anna tiedoston nimi, joka haetaan mikrolle."
  331.   put it into BINHEXNIMI
  332.   put it into BINHEXNIMIM
  333.   put false into OK
  334.   repeat until OK
  335.     get offset(":",BINHEXNIMIM)
  336.     if it > 0 then
  337.       put "-" into char it of BINHEXNIMIM
  338.       put "Nimest├ñ poistettu :-merkki. Nimi on nyt " & BINHEXNIMIM
  339.     else
  340.       put true into OK
  341.     end if
  342.   end repeat
  343.   open file BINHEXNIMIM
  344.  
  345.   put empty into card field 1
  346.   writeascii "more " & BINHEXNIMI & return
  347.   repeat 10000 times
  348.     displayscreen "dis","--more--("
  349.     get number of lines of card field 1
  350.     put it into n
  351.     repeat with i = 1 to n
  352.       get line i of card field 1
  353.       put it
  354.       if offset("--MORE--(",it) > 0 then exit repeat
  355.       write it & return to file BINHEXNIMIM
  356.     end repeat
  357.     get number of characters of card field 1
  358.     get char it-1 to it of card field 1
  359.     if it = "% " then exit repeat
  360.     writeascii " "
  361.     put empty into card field 1
  362.   end repeat
  363.   close file BINHEXNIMIM
  364.   displayscreen "dis"
  365.   closeascii
  366.   put "Tiedosto on talletettu HyperCard -kansioon nimelle" && BINHEXNIMIM
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 42 (button)
  372. -- low flags: 00
  373. -- high flags: A000
  374. -- rect: left=31 top=81 right=126 bottom=106
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 1006 / 1006
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: Close Connection
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  386.   set cursor to watch
  387.   openascii
  388.   show card field 1
  389.   put false into OK
  390.   writeascii "exit" & return
  391.   writeascii "lo" & return
  392.   displayscreen "dis","verkko","logout"
  393.   if offset("disconnected",card field 1) <> 0 then
  394.     put true into OK
  395.   end if
  396.   if offset("logged out at",card field 1) <> 0 then
  397.     put true into OK
  398.   end if
  399.   if offset("invalid CS/",card field 1) <> 0 then
  400.     put true into OK
  401.   end if
  402.   if OK then
  403.     writeascii "dis" & return
  404.     wait 100
  405.     writeascii "dis" & return
  406.     wait 100
  407.     writeascii "dis" & return
  408.     wait 100
  409.     writeascii numtochar(4) & numtochar(4) & numtochar(4)
  410.     --show button id 29
  411.     --show button id 28
  412.     --show button id 31
  413.  
  414.   else
  415.     show card field 1
  416.     put "Yhteys koneeseen ei sulkeutunut normaalisti." into card field  "UserMessage" of card "card0"
  417.   end if
  418.   displayscreen "dis"
  419.   put "Yhteys koneeseen " & NodeName & " on nyt suljettu. " into card field "UserMessage" of card "card0"
  420.   put "Voit nyt poistua t├ñst├ñ pinosta." after card field "UserMEssage" of card "card0"
  421.   closeascii
  422.   go card "card0"
  423. end mouseUp
  424.  
  425.  
  426.  
  427.  
  428. -- part 43 (button)
  429. -- low flags: 00
  430. -- high flags: A004
  431. -- rect: left=246 top=78 right=98 bottom=446
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: Get file to text field
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   global NewsState
  443.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  444.   if NodeType <> "unix" then
  445.     put "Ei toimi VMS-koneilla."
  446.     exit mouseup
  447.   end if
  448.   put empty
  449.   openascii
  450.   ask "Anna tiedoston nimi, joka haetaan mikrolle."
  451.   put it into BINHEXNIMI
  452.  
  453.   put empty into card field 1
  454.   writeascii "cat " & BINHEXNIMI & return
  455.   repeat 1000 times
  456.     displayscreen "dis"
  457.     --get number of lines of card field 1
  458.     --put it into n
  459.     --repeat with i = 1 to n
  460.     --  get line i of card field 1
  461.     --  put it
  462.     --  if offset("--MORE--(",it) > 0 then
  463.     --    put empty into line n of card field 1
  464.     --    exit repeat
  465.     --  end if
  466.     --end repeat
  467.     get number of characters of card field 1
  468.     get char it-1 to it of card field 1
  469.     if it = "% " then exit repeat
  470.     --writeascii " "
  471.   end repeat
  472.   --displayscreen "dis"
  473.   closeascii
  474.   put "Tiedosto on tekstikent├ñss├ñ."
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 44 (button)
  480. -- low flags: 00
  481. -- high flags: A004
  482. -- rect: left=271 top=169 right=188 bottom=510
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 0
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: Open terminal emulator
  491. ----- HyperTalk script -----
  492. on mouseUp
  493.   put first word of card field "TTY" of card "Config" into TTY
  494.   openascii
  495.   writeascii "set term=" & TTY & return
  496.   writeascii "stty rows 24" & return
  497.   writeascii numtochar(17)
  498.   closeascii
  499.   put card field "Terminal Emulator" of card "config" into TerminalEmulator
  500.   open TerminalEmulator
  501.   domenu "quit hypercard"
  502. end mouseUp
  503.  
  504.  
  505.  
  506. -- part 45 (button)
  507. -- low flags: 00
  508. -- high flags: A000
  509. -- rect: left=131 top=21 right=72 bottom=244
  510. -- title width / last selected line: 0
  511. -- icon id / first selected line: 27056 / 27056
  512. -- text alignment: 1
  513. -- font id: 0
  514. -- text size: 12
  515. -- style flags: 0
  516. -- line height: 16
  517. -- part name: Change parameters
  518. ----- HyperTalk script -----
  519. on mouseup
  520.   go card "Config"
  521. end mouseup
  522.  
  523.  
  524.  
  525. -- part 46 (button)
  526. -- low flags: 00
  527. -- high flags: A004
  528. -- rect: left=340 top=116 right=134 bottom=446
  529. -- title width / last selected line: 0
  530. -- icon id / first selected line: 0 / 0
  531. -- text alignment: 1
  532. -- font id: 0
  533. -- text size: 12
  534. -- style flags: 0
  535. -- line height: 16
  536. -- part name: Any Command
  537. ----- HyperTalk script -----
  538. on mouseUp
  539.   global CommStorage
  540.   global CommSpeed,CommPrompt, NodeName, NodeType, Username
  541.   openascii
  542.   ask "Komento"
  543.   writeascii numtochar(17) & it & return
  544.   put space into card field 1
  545.   displayscreen "dis",CommPrompt
  546.   closeascii
  547. end mouseUp
  548.  
  549.  
  550.  
  551. -- part contents for card part 25
  552. ----- text -----
  553. Lines 4
  554.  
  555. -- part contents for card part 37
  556. ----- text -----
  557.  
  558.  
  559.  
  560. Kirjoita  salasanasi. 
  561.  
  562.  
  563. (Se kirjoittuu ΓÇó-merkkein├ñ alla olevaan kentt├ñ├ñn)
  564.  
  565. -- part contents for card part 38
  566. ----- text -----
  567. ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó
  568.  
  569. -- part contents for card part 13
  570. ----- text -----
  571. stty rows 24
  572.  
  573. 5:55pm@tukki:~% set term=vt200
  574.  
  575.